home *** CD-ROM | disk | FTP | other *** search
/ USGS: National Coal Resou…s & Great Plains Regions / USGS National Coal Resource Assessment 1999 - Northern Rocky Mountains & Great Plains Regions - Disc 2.iso / PROGRAM / ETC / AVPROCS.AI < prev    next >
Encoding:
Text File  |  1998-07-18  |  12.4 KB  |  874 lines
  1. %%BeginResource: procset Adobe_packedarray 2.0 0
  2. %%Title: (Packed Array Operators)
  3. %%Version: 2.0 
  4. %%CreationDate: (8/2/90) ()
  5. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  6.  
  7. userdict /Adobe_packedarray 5 dict dup begin put
  8. /initialize            % - initialize -
  9. {
  10. /packedarray where
  11.     {
  12.     pop
  13.     }
  14.     {
  15.     Adobe_packedarray begin
  16.     Adobe_packedarray
  17.         {
  18.         dup xcheck
  19.             {
  20.             bind
  21.             } if
  22.         userdict 3 1 roll put
  23.         } forall
  24.     end
  25.     } ifelse
  26. } def
  27. /terminate            % - terminate -
  28. {
  29. } def
  30. /packedarray        % arguments count packedarray array
  31. {
  32. array astore readonly
  33. } def
  34. /setpacking            % boolean setpacking -
  35. {
  36. pop
  37. } def
  38. /currentpacking        % - setpacking boolean
  39. {
  40. false
  41. } def
  42. currentdict readonly pop end
  43. %%EndResource
  44. Adobe_packedarray /initialize get exec
  45.  
  46. %%BeginResource: procset Adobe_cmykcolor 1.1 0
  47. %%Title: (CMYK Color Operators)
  48. %%Version: 1.1 
  49. %%CreationDate: (1/23/89) ()
  50. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  51.  
  52. currentpacking true setpacking
  53. userdict /Adobe_cmykcolor 4 dict dup begin put
  54. /initialize            % - initialize -
  55. {
  56. /setcmykcolor where
  57.     {
  58.     pop
  59.     }
  60.     {
  61.     userdict /Adobe_cmykcolor_vars 2 dict dup begin put
  62.     /_setrgbcolor
  63.         /setrgbcolor load def
  64.     /_currentrgbcolor
  65.         /currentrgbcolor load def
  66.     Adobe_cmykcolor begin
  67.     Adobe_cmykcolor
  68.         {
  69.         dup xcheck
  70.             {
  71.             bind
  72.             } if
  73.         pop pop
  74.         } forall
  75.     end
  76.     end
  77.     Adobe_cmykcolor begin
  78.     } ifelse
  79. } def
  80. /terminate            % - terminate -
  81. {
  82. currentdict Adobe_cmykcolor eq
  83.     {
  84.     end
  85.     } if
  86. } def
  87. /setcmykcolor        % cyan magenta yellow black setcmykcolor -
  88. {
  89. 1 sub 4 1 roll
  90. 3
  91.     {
  92.     3 index add neg dup 0 lt
  93.         {
  94.         pop 0
  95.         } if
  96.     3 1 roll
  97.     } repeat
  98. Adobe_cmykcolor_vars /_setrgbcolor get exec
  99. pop
  100. } def 
  101. /currentcmykcolor    % - currentcmykcolor cyan magenta yellow black
  102. {
  103. Adobe_cmykcolor_vars /_currentrgbcolor get exec
  104. 3
  105.     {
  106.     1 sub neg 3 1 roll
  107.     } repeat
  108. 0
  109. } def
  110. currentdict readonly pop end
  111. setpacking
  112.  
  113. %%EndResource
  114. %%BeginResource: procset Adobe_cshow 1.1 0
  115. %%Title: (cshow Operator)
  116. %%Version: 1.1 
  117. %%CreationDate: (1/23/89) ()
  118. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  119.  
  120. currentpacking true setpacking
  121. userdict /Adobe_cshow 3 dict dup begin put
  122. /initialize            % - initialize -
  123. {
  124. /cshow where
  125.     {
  126.     pop
  127.     }
  128.     {
  129.     userdict /Adobe_cshow_vars 1 dict dup begin put
  130.     /_cshow        % - _cshow proc
  131.         {} def
  132.     Adobe_cshow begin
  133.     Adobe_cshow
  134.         {
  135.         dup xcheck
  136.             {
  137.             bind
  138.             } if
  139.         userdict 3 1 roll put
  140.         } forall
  141.     end
  142.     end
  143.     } ifelse
  144. } def
  145. /terminate            % - terminate -
  146. {
  147. } def
  148. /cshow                % proc string cshow -
  149. {
  150. exch
  151. Adobe_cshow_vars
  152.     exch /_cshow
  153.     exch put
  154.     {
  155.     0 0 Adobe_cshow_vars /_cshow get exec
  156.     } forall
  157. } def
  158. currentdict readonly pop end
  159. setpacking
  160.  
  161. %%EndResource
  162. %%BeginResource: procset Adobe_customcolor 1.0 0
  163. %%Title: (Custom Color Operators)
  164. %%Version: 1.0 
  165. %%CreationDate: (5/9/88) ()
  166. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  167.  
  168. currentpacking true setpacking
  169. userdict /Adobe_customcolor 5 dict dup begin put
  170. /initialize            % - initialize -
  171. {
  172. /setcustomcolor where
  173.     {
  174.     pop
  175.     }
  176.     {
  177.     Adobe_customcolor begin
  178.     Adobe_customcolor
  179.         {
  180.         dup xcheck
  181.             {
  182.             bind
  183.             } if
  184.         pop pop
  185.         } forall
  186.     end
  187.     Adobe_customcolor begin
  188.     } ifelse
  189. } def
  190. /terminate            % - terminate -
  191. {
  192. currentdict Adobe_customcolor eq
  193.     {
  194.     end
  195.     } if
  196. } def
  197. /findcmykcustomcolor    % cyan magenta yellow black name findcmykcustomcolor object
  198. {
  199. 5 packedarray
  200. }  def
  201. /setcustomcolor        % object tint setcustomcolor -
  202. {
  203. exch
  204. aload pop pop
  205. 4
  206.     {
  207.     4 index mul 4 1 roll
  208.     } repeat
  209. 5 -1 roll pop
  210. setcmykcolor
  211. } def
  212. /setoverprint        % boolean setoverprint -
  213. {
  214. pop
  215. } def
  216. currentdict readonly pop end
  217. setpacking
  218.  
  219. %%EndResource
  220. %%BeginResource: procset Adobe_IllustratorA_AI3 1.0 1
  221. %%Title: (Adobe Illustrator (R) Version 3.0 Abbreviated Prolog)
  222. %%Version: 1.0 
  223. %%CreationDate: (7/22/89) ()
  224. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  225.  
  226. currentpacking true setpacking
  227. userdict /Adobe_IllustratorA_AI3 61 dict dup begin put
  228. % initialization
  229. /initialize                % - initialize -
  230. {
  231. % 47 vars, but leave slack of 10 entries for custom Postscript fragments
  232. userdict /Adobe_IllustratorA_AI3_vars 57 dict dup begin put
  233.  
  234. % paint operands
  235. /_lp /none def
  236. /_pf {} def
  237. /_ps {} def
  238. /_psf {} def
  239. /_pss {} def
  240. /_pjsf {} def
  241. /_pjss {} def
  242. /_pola 0 def
  243. /_doClip 0 def
  244.  
  245. % paint operators
  246. /cf    currentflat def    % - cf flatness
  247.  
  248. % typography operands
  249. /_tm matrix def
  250. /_renderStart [/e0 /r0 /a0 /o0 /e1 /r1 /a1 /i0] def 
  251. /_renderEnd [null null null null /i1 /i1 /i1 /i1] def
  252. /_render -1 def
  253. /_rise 0 def
  254. /_ax 0 def            % x character spacing    (_ax, _ay, _cx, _cy follows awidthshow naming convention)
  255. /_ay 0 def            % y character spacing
  256. /_cx 0 def            % x word spacing
  257. /_cy 0 def            % y word spacing
  258. /_leading [0 0] def
  259. /_ctm matrix def
  260. /_mtx matrix def
  261. /_sp 16#020 def
  262. /_hyphen (-) def
  263. /_fScl 0 def
  264. /_cnt 0 def
  265. /_hs 1 def
  266. /_nativeEncoding 0 def
  267. /_useNativeEncoding 0 def
  268. /_tempEncode 0 def
  269. /_pntr 0 def
  270. /_tDict 2 dict def
  271.  
  272. % typography operators
  273. /Tx {} def
  274. /Tj {} def
  275.  
  276. % compound path operators
  277. /CRender {} def
  278.  
  279. % printing
  280. /_AI3_savepage {} def
  281.  
  282. % color operands
  283. /_gf null def
  284. /_cf 4 array def
  285. /_if null def
  286. /_of false def
  287. /_fc {} def
  288. /_gs null def
  289. /_cs 4 array def
  290. /_is null def
  291. /_os false def
  292. /_sc {} def
  293. /_i null def
  294. Adobe_IllustratorA_AI3 begin
  295. Adobe_IllustratorA_AI3
  296.     {
  297.     dup xcheck
  298.         {
  299.         bind
  300.         } if
  301.     pop pop
  302.     } forall
  303. end
  304. end
  305. Adobe_IllustratorA_AI3 begin
  306. Adobe_IllustratorA_AI3_vars begin
  307. newpath
  308. } def
  309. /terminate                % - terminate -
  310. {
  311. end
  312. end
  313. } def
  314. % definition operators
  315. /_                    % - _ null
  316. null def
  317. /ddef                % key value ddef -
  318. {
  319. Adobe_IllustratorA_AI3_vars 3 1 roll put
  320. } def
  321. /xput                % key value literal xput -
  322. {
  323. dup load dup length exch maxlength eq
  324.     {
  325.     dup dup load dup
  326.     length 2 mul dict copy def
  327.     } if
  328. load begin def end
  329. } def
  330. /npop                % integer npop -
  331. {
  332.     {
  333.     pop
  334.     } repeat
  335. } def
  336. % marking operators
  337. /sw                    % ax ay string sw x y 
  338. {
  339. dup length exch stringwidth
  340. exch 5 -1 roll 3 index 1 sub mul add
  341. 4 1 roll 3 1 roll 1 sub mul add
  342. } def
  343. /swj                % cx cy fillchar ax ay string swj x y
  344. {
  345. dup 4 1 roll
  346. dup length exch stringwidth 
  347. exch 5 -1 roll 3 index 1 sub mul add
  348. 4 1 roll 3 1 roll 1 sub mul add 
  349. 6 2 roll /_cnt 0 ddef
  350. {1 index eq {/_cnt _cnt 1 add ddef} if} forall pop
  351. exch _cnt mul exch _cnt mul 2 index add 4 1 roll 2 index add 4 1 roll pop pop
  352. } def
  353. /ss                    % ax ay string matrix ss -
  354. {
  355. 4 1 roll
  356.     {                % matrix ax ay char 0 0 {proc} -
  357.     2 npop 
  358.     (0) exch 2 copy 0 exch put pop
  359.     gsave
  360.     false charpath currentpoint
  361.     4 index setmatrix
  362.     stroke
  363.     grestore
  364.     moveto
  365.     2 copy rmoveto
  366.     } exch cshow
  367. 3 npop
  368. } def
  369. /jss                % cx cy fillchar ax ay string matrix jss -
  370. {
  371. 4 1 roll
  372.     {                % cx cy fillchar matrix ax ay char 0 0 {proc} -   
  373.     2 npop 
  374.     (0) exch 2 copy 0 exch put 
  375.     gsave
  376.     _sp eq 
  377.         {
  378.         exch 6 index 6 index 6 index 5 -1 roll widthshow  
  379.         currentpoint
  380.         }
  381.         {
  382.         false charpath currentpoint
  383.         4 index setmatrix stroke
  384.         }ifelse
  385.     grestore
  386.     moveto
  387.     2 copy rmoveto
  388.     } exch cshow
  389. 6 npop
  390. } def
  391.  
  392. % path operators
  393. /sp                    % ax ay string sp -
  394. {
  395.     {
  396.     2 npop (0) exch
  397.     2 copy 0 exch put pop
  398.     false charpath
  399.     2 copy rmoveto
  400.     } exch cshow
  401. 2 npop
  402. } def
  403. /jsp                    % cx cy fillchar ax ay string jsp -
  404. {
  405.     {                    % cx cy fillchar ax ay char 0 0 {proc} -
  406.     2 npop 
  407.     (0) exch 2 copy 0 exch put 
  408.     _sp eq 
  409.         {
  410.         exch 5 index 5 index 5 index 5 -1 roll widthshow  
  411.         }
  412.         {
  413.         false charpath
  414.         }ifelse
  415.     2 copy rmoveto
  416.     } exch cshow
  417. 5 npop
  418. } def
  419.  
  420. % path construction operators
  421. /pl                % x y pl x y
  422. {
  423. transform
  424. 0.25 sub round 0.25 add exch
  425. 0.25 sub round 0.25 add exch
  426. itransform
  427. } def
  428. /setstrokeadjust where
  429.     {
  430.     pop true setstrokeadjust
  431.     /c                % x1 y1 x2 y2 x3 y3 c -
  432.     {
  433.     curveto
  434.     } def
  435.     /C
  436.     /c load def
  437.     /v                % x2 y2 x3 y3 v -
  438.     {
  439.     currentpoint 6 2 roll curveto
  440.     } def
  441.     /V
  442.     /v load def
  443.     /y                % x1 y1 x2 y2 y -
  444.     {
  445.     2 copy curveto
  446.     } def
  447.     /Y
  448.     /y load def
  449.     /l                % x y l -
  450.     {
  451.     lineto
  452.     } def
  453.     /L
  454.     /l load def
  455.     /m                % x y m -
  456.     {
  457.     moveto
  458.     } def
  459.     }
  460.     {%else
  461.     /c
  462.     {
  463.     pl curveto
  464.     } def
  465.     /C
  466.     /c load def
  467.     /v
  468.     {
  469.     currentpoint 6 2 roll pl curveto
  470.     } def
  471.     /V
  472.     /v load def
  473.     /y
  474.     {
  475.     pl 2 copy curveto
  476.     } def
  477.     /Y
  478.     /y load def
  479.     /l
  480.     {
  481.     pl lineto
  482.     } def
  483.     /L
  484.     /l load def
  485.     /m
  486.     {
  487.     pl moveto
  488.     } def
  489.     }ifelse
  490.  
  491. % graphic state operators
  492. /d                    % array phase d -
  493. {
  494. setdash
  495. } def
  496. /cf    {} def            % - cf flatness
  497. /i                    % flatness i -
  498. {
  499. dup 0 eq
  500.     {
  501.     pop cf
  502.     } if
  503. setflat
  504. } def
  505. /j                    % linejoin j -
  506. {
  507. setlinejoin
  508. } def
  509. /J                    % linecap J -
  510. {
  511. setlinecap
  512. } def
  513. /M                    % miterlimit M -
  514. {
  515. setmiterlimit
  516. } def
  517. /w                    % linewidth w -
  518. {
  519. setlinewidth
  520. } def
  521.  
  522. % path painting operators
  523. /H                    % - H -
  524. {} def
  525. /h                    % - h -
  526. {
  527. closepath
  528. } def
  529. /N                    % - N -
  530. {
  531. _pola 0 eq 
  532.     {
  533.     _doClip 1 eq {clip /_doClip 0 ddef} if 
  534.     newpath
  535.     } 
  536.     {
  537.     /CRender {N} ddef
  538.     }ifelse
  539. } def
  540. /n                    % - n -
  541. {N} def
  542. /F                    % - F -
  543. {
  544. _pola 0 eq 
  545.     {
  546.     _doClip 1 eq 
  547.         {
  548.         gsave _pf grestore clip newpath /_lp /none ddef _fc 
  549.         /_doClip 0 ddef
  550.         }
  551.         {
  552.         _pf
  553.         }ifelse
  554.     } 
  555.     {
  556.     /CRender {F} ddef
  557.     }ifelse
  558. } def
  559. /f                    % - f -
  560. {
  561. closepath
  562. F
  563. } def
  564. /S                    % - S -
  565. {
  566. _pola 0 eq 
  567.     {
  568.     _doClip 1 eq 
  569.         {
  570.         gsave _ps grestore clip newpath /_lp /none ddef _sc 
  571.         /_doClip 0 ddef
  572.         }
  573.         {
  574.         _ps
  575.         }ifelse
  576.     } 
  577.     {
  578.     /CRender {S} ddef
  579.     }ifelse
  580. } def
  581. /s                    % - s -
  582. {
  583. closepath
  584. S
  585. } def
  586. /B                    % - B -
  587. {
  588. _pola 0 eq 
  589.     {
  590.     _doClip 1 eq     % F clears _doClip
  591.     gsave F grestore 
  592.         {
  593.         gsave S grestore clip newpath /_lp /none ddef _sc
  594.         /_doClip 0 ddef
  595.         } 
  596.         {
  597.         S
  598.         }ifelse
  599.     }
  600.     {
  601.     /CRender {B} ddef
  602.     }ifelse
  603. } def
  604. /b                    % - b -
  605. {
  606. closepath
  607. B
  608. } def
  609. /W                    % - W -
  610. {
  611. /_doClip 1 ddef
  612. } def
  613. /*                    % - [string] * -
  614. {
  615. count 0 ne 
  616.     {
  617.     dup type (stringtype) eq {pop} if
  618.     } if 
  619. _pola 0 eq {newpath} if
  620. } def
  621.  
  622. % group operators
  623. /u                    % - u -
  624. {} def
  625. /U                    % - U -
  626. {} def
  627. /q                    % - q -
  628. {
  629. _pola 0 eq {gsave} if
  630. } def
  631. /Q                    % - Q -
  632. {
  633. _pola 0 eq {grestore} if
  634. } def
  635. /*u                    % - *u -
  636. {
  637. _pola 1 add /_pola exch ddef
  638. } def
  639. /*U                    % - *U -
  640. {
  641. _pola 1 sub /_pola exch ddef 
  642. _pola 0 eq {CRender} if
  643. } def
  644. /D                    % polarized D -
  645. {pop} def
  646. /*w                    % - *w -
  647. {} def
  648. /*W                    % - *W -
  649. {} def
  650.  
  651. % place operators
  652. /`                    % matrix llx lly urx ury string ` -
  653. {
  654. /_i save ddef
  655. 6 1 roll 4 npop
  656. concat
  657. userdict begin
  658. /showpage {} def
  659. false setoverprint
  660. pop
  661. } def
  662. /~                    % - ~ -
  663. {
  664. end
  665. _i restore
  666. } def
  667.  
  668. % color operators
  669. /O                    % flag O -
  670. {
  671. 0 ne
  672. /_of exch ddef
  673. /_lp /none ddef
  674. } def
  675. /R                    % flag R -
  676. {
  677. 0 ne
  678. /_os exch ddef
  679. /_lp /none ddef
  680. } def
  681. /g                    % gray g -
  682. {
  683. /_gf exch ddef
  684. /_fc
  685. { 
  686. _lp /fill ne
  687.     {
  688.     _of setoverprint
  689.     _gf setgray
  690.     /_lp /fill ddef
  691.     } if
  692. } ddef
  693. /_pf
  694. {
  695. _fc
  696. fill
  697. } ddef
  698. /_psf
  699. {
  700. _fc
  701. ashow
  702. } ddef
  703. /_pjsf
  704. {
  705. _fc
  706. awidthshow
  707. } ddef
  708. /_lp /none ddef
  709. } def
  710. /G                    % gray G -
  711. {
  712. /_gs exch ddef
  713. /_sc
  714. {
  715. _lp /stroke ne
  716.     {
  717.     _os setoverprint
  718.     _gs setgray
  719.     /_lp /stroke ddef
  720.     } if
  721. } ddef
  722. /_ps
  723. {
  724. _sc
  725. stroke
  726. } ddef
  727. /_pss
  728. {
  729. _sc
  730. ss
  731. } ddef
  732. /_pjss
  733. {
  734. _sc
  735. jss
  736. } ddef
  737. /_lp /none ddef
  738. } def
  739. /k                    % cyan magenta yellow black k -
  740. {
  741. _cf astore pop
  742. /_fc
  743. {
  744. _lp /fill ne
  745.     {
  746.     _of setoverprint
  747.     _cf aload pop setcmykcolor
  748.     /_lp /fill ddef
  749.     } if
  750. } ddef
  751. /_pf
  752. {
  753. _fc
  754. fill
  755. } ddef
  756. /_psf
  757. {
  758. _fc
  759. ashow
  760. } ddef
  761. /_pjsf
  762. {
  763. _fc
  764. awidthshow
  765. } ddef
  766. /_lp /none ddef
  767. } def
  768. /K                    % cyan magenta yellow black K -
  769. {
  770. _cs astore pop
  771. /_sc
  772. {
  773. _lp /stroke ne
  774.     {
  775.     _os setoverprint
  776.     _cs aload pop setcmykcolor
  777.     /_lp /stroke ddef
  778.     } if
  779. } ddef
  780. /_ps
  781. {
  782. _sc
  783. stroke
  784. } ddef
  785. /_pss
  786. {
  787. _sc
  788. ss
  789. } ddef
  790. /_pjss
  791. {
  792. _sc
  793. jss
  794. } ddef
  795. /_lp /none ddef
  796. } def
  797. /x                    % cyan magenta yellow black name gray x -
  798. {
  799. /_gf exch ddef
  800. findcmykcustomcolor
  801. /_if exch ddef
  802. /_fc
  803. { 
  804. _lp /fill ne
  805.     {
  806.     _of setoverprint
  807.     _if _gf 1 exch sub setcustomcolor
  808.     /_lp /fill ddef
  809.     } if
  810. } ddef
  811. /_pf
  812. {
  813. _fc
  814. fill
  815. } ddef
  816. /_psf
  817. {
  818. _fc
  819. ashow
  820. } ddef
  821. /_pjsf
  822. {
  823. _fc
  824. awidthshow
  825. } ddef
  826. /_lp /none ddef
  827. } def
  828. /X                    % cyan magenta yellow black name gray X -
  829. {
  830. /_gs exch ddef
  831. findcmykcustomcolor
  832. /_is exch ddef
  833. /_sc
  834. {
  835. _lp /stroke ne
  836.     {
  837.     _os setoverprint
  838.     _is _gs 1 exch sub setcustomcolor
  839.     /_lp /stroke ddef
  840.     } if
  841. } ddef
  842. /_ps
  843. {
  844. _sc
  845. stroke
  846. } ddef
  847. /_pss
  848. {
  849. _sc
  850. ss
  851. } ddef
  852. /_pjss
  853. {
  854. _sc
  855. jss
  856. } ddef
  857. /_lp /none ddef
  858. } def
  859.  
  860. % locked object operator
  861. /A                    % value A -
  862. {
  863. pop
  864. } def
  865.  
  866. currentdict readonly pop end
  867. setpacking
  868.  
  869. % annotate page operator
  870. /annotatepage
  871. {
  872. } def
  873. %%EndResource
  874.